-- background: 31331 from stack: in.0
-- bmap block id: 31496
-- flags: 0000
-- background id: 0
-- name: Publicity
----- HyperTalk script -----
on openCard
  global viewTime
  put the seconds into viewTime
end openCard

on returnKey
  global stringToFind
  if the visible of msg is true or stringToFind is empty then
    pass returnKey
  else
    if the foundText is not empty then
      find string stringToFind
      if the result is not "not found" then
        play stop
        play harpsichord a7t ae
      end if
    end if
  end if
end returnKey

on find
  if the visible of msg is true then
    show msg
  end if
  pass find
end find

on arrowKey
  -- do nothing
end arrowKey



-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=2 top=3 right=21 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 2304
-- line height: 16
-- part name: Header


-- part 22 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=343 top=3 right=20 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 12
-- style flags: 2304
-- line height: 16
-- part name: Page Number


-- part 43 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=94 top=305 right=337 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseDown
  play stop
  play harpsichord a7e
end mouseDown

on mouseUp
  doMenu Quit HyperCard
end mouseUp


-- part 46 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=463 top=305 right=337 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Contents
----- HyperTalk script -----
on mouseDown
  play stop
  play harpsichord a7e
end mouseDown

on mouseUp
  visual effect dissolve
  go to card "Publicity Picture Dissolve"
  visual effect iris close to black
  visual effect iris open
  go to card "Main Menu"
end mouseUp


-- part 49 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=53 top=305 right=337 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseDown
  play stop
  play harpsichord a7e
end mouseDown

on mouseUp
  answer "Print this page?" with "Cancel" or "OK"
  if it is "OK" then
    set lockScreen to true
    open printing
    print 2 cards
    close printing
    set lockScreen to false
  end if
end mouseUp